

for each qad_wkfl exclusive-lock where qad_key1 = "mrp/drp" :
    if not can-find(first mon_mstr where mon_sid = qad_key4) then
        delete qad_wkfl.
    else
        release qad_wkfl.
end.